home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / riddler.dxr / 00049_looper for opening animation.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  1.1 KB  |  42 lines
  1. on exitFrame
  2.   global gPathToSound, fileDelimiter, gMusicChannel
  3.   if soundBusy(gMusicChannel) then
  4.     go(the frame)
  5.   else
  6.     repeat while the volume of sound gMusicChannel > 0
  7.       set the volume of sound gMusicChannel to the volume of sound gMusicChannel - 16
  8.       updateStage()
  9.       LingoPause(5)
  10.     end repeat
  11.     sound stop gMusicChannel
  12.     set the actorList to []
  13.     KillEmPuppets()
  14.     go("Num Of Players")
  15.   end if
  16. end
  17.  
  18. on mouseDown
  19.   global gPathToSound, fileDelimiter, gMusicChannel
  20.   repeat while the volume of sound gMusicChannel > 0
  21.     set the volume of sound gMusicChannel to the volume of sound gMusicChannel - 16
  22.     updateStage()
  23.     LingoPause(5)
  24.   end repeat
  25.   sound stop gMusicChannel
  26.   set the actorList to []
  27.   KillEmPuppets()
  28.   go("Num Of Players")
  29. end
  30.  
  31. on keyDown
  32.   global gPathToSound, fileDelimiter, gMusicChannel
  33.   repeat while the volume of sound gMusicChannel > 0
  34.     set the volume of sound gMusicChannel to the volume of sound gMusicChannel - 16
  35.     LingoPause(5)
  36.   end repeat
  37.   sound stop gMusicChannel
  38.   set the actorList to []
  39.   KillEmPuppets()
  40.   go("Num Of Players")
  41. end
  42.